home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
pibt40s1.arc
/
CHECKWAI.MOD
< prev
next >
Wrap
Text File
|
1987-03-01
|
2KB
|
32 lines
(*----------------------------------------------------------------------*)
(* Check_Wait_String_Time --- Check if wait string time exhausted *)
(*----------------------------------------------------------------------*)
PROCEDURE Check_Wait_String_Time;
(*----------------------------------------------------------------------*)
(* *)
(* Procedure: Check_Wait_String_Time *)
(* *)
(* Purpose: Checks if wait string time is exhausted *)
(* *)
(* Calling Sequence: *)
(* *)
(* Check_Wait_String_Time; *)
(* *)
(*----------------------------------------------------------------------*)
BEGIN (* Check_Wait_String_Time *)
IF ( TimeDiff( Script_Wait_Start , TimeOfDay ) > Script_Wait_Time ) THEN
BEGIN
Script_Wait_Save[0] := #0;
Script_Wait_Found := FALSE;
WaitString_Mode := FALSE;
Really_Wait_String := FALSE;
IF ( Script_Wait_Failure > 0 ) THEN
Script_Buffer_Pos := PRED( Script_Wait_Failure );
END;
END (* Check_Wait_String_Time *);